Appendix A 


Transporting Programs Between VAX BASIC 

and BASIC-PLUS-2 


This appendix summarizes transportability issues between BASIC-PLUS-2 
and VAX BASIC. 


A.1 Overview 

This appendix is for users who want to write BASIC programs that can 
be used in both VAX BASIC and PDP-11 BASIC-PLUS-2. It describes 
functionality that is particular to one language, as well as statements and 
functions that appear the same in both languages, but produce different 
results. 

Note that this appendix does not describe all the differences between 
VAX BASIC and BASIC-PLUS-2. To assist you in writing transportable 
programs, use the DCL command BASIC/FLAG=BP2COMPATIBILITY 
when you invoke VAX BASIC. This command causes VAX BASIC to signal 
an informational message whenever you use functionality that is not 
compatible with BASIC-PLUS-2. 

This appendix contains the following sections: 

• Language-specific functionality 

• I/O differences 

• Procedure calling 

• Generated errors 

• Miscellaneous differences 
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A.2 Language-Specific Functionality 

The following statements, functions, and clauses are available only in 
BASIC-PLUS-2: 

• Specifying a line number with the CHAIN statement t 

• The FSS$ function 

• The ONECHR function (see the VAX BASIC INKEY$ function) 

• The PEEK function t 

• The SPEC% function t 

• The CLUSTERSIZE and MODE clauses on the OPEN statement f 

VAX BASIC supports the following functionality which is not available in 
BASIC-PLUS-2: 

• Graphics 

• Support for the VAX Language-Sensitive Editor (LSE) 

• Support for the Program Design Facility (PDF) 

• Support for the VAX Source Code Analyzer (SCA) 

• Non-zero lower bounds for arrays 

• WHEN blocks 

• Return values on the END, EXIT DEF, END DEF, EXIT FUNCTION, 
and END FUNCTION statements 

• Dollar sign ($) and percent sign (%) suffixes in explicitly declared 
variables 

• User-defined data types with the RECORD statement 

• DECIMAL, GFLOAT, and HFLOAT data types 

• Hexadecimal, binary, and octal literal notation 

The following statements, functions, and commands are available only in 
VAX BASIC: 

• The %DECLARED directive 

• The %INCLUDE %FROM %CDD directive 

• The %INCLUDE %FROM %LIBRARY directive 

• The %PRINT directive 

• The %REPORT %DEPENDENCY directive 

t Specific to BASIC-PLUS-2 on RSTS/E systems. 
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• All graphics statements 

• The CAUSE ERROR statement 

• The FREE statement 

• The FIND statement with the ALLOW, REGARDLESS, and WAIT 
clauses 

• The GET statement with the ALLOW, REGARDLESS, and WAIT clauses 

• The MID$ assignment statement 

• The OPTION CONSTANT TYPE, OPTION HANDLE, and OPTION 
ANGLE statements 

• The PROGRAM, END PROGRAM and EXIT PROGRAM statements 

• The RECORD statement 

• All WHEN block statements and clauses (WHEN...END WHEN, 
HANDLER...END HANDLER, CONTINUE, RETRY, and EXIT 
HANDLER) 

• The DECIMAL function 

• The INKEY$ function 

• The LBOUND and UBOUND functions 

• The LOC function 

• The MARGIN and NOMARGIN functions 

• The MAX, MIN, and MOD functions 

• The VMSSTATUS and RMSSTATUS functions 

• The ANY and OPTIONAL keywords in EXTERNAL routine declarations 


A.3 I/O Differences 

( 

This section discusses some I/O differences between VAX BASIC and 
BASIC-PLUS-2. 


A.3.1 The MAGTAPE Function 

VAX BASIC does not support the MAGTAPE function except for the rewind 
tape function (code 3). Table A—1 describes the VAX BASIC actions you can 
perform to obtain other MAGTAPE functionality. 
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Table A-1: MAGTAPE Functionality in VAX BASIC 


Code 

Function 

VAX BASIC Action 

2 

Write EOF 

Close channel with the CLOSE statement 

3 

Rewind tape 

Use the RESTORE # statement, the REWIND clause 
on an OPEN statement, or the MAGTAPE function 

4 

Skip records 

Perform GET operations, ignore data until reaching 
desired record 

5 

Backspace 

Rewind tape, perform GET operations, ignore data 
until reaching desired record 

6 

Set density or set parity 

Use the DCL commands MOUNT/DENSITY and 
MOUNT/FOREIGN or the $MOUNT system service 

7 

Get status 

Use the RMSSTATUS function 



A.3.2 The OPEN Statement 


The following differences exist in the OPEN statement when used in VAX 

BASIC and BASIC-PLUS-2: 

• In VAX BASIC, a map named in an OPEN statement is never initialized; 
in BASIC-PLUS-2, variables in the map are initialized to zero or to the 
null string. 

• In VAX BASIC, an OPEN error causes the STATUS variable to be set to 
zero. In BASIC-PLUS-2, an OPEN error causes the STATUS variable to 
be set to the RMS STS field value. Use the VAX BASIC RMSSTATUS 
function to return the RMS STS field value. 

• Both VAX BASIC and BASIC-PLUS-2 allow you to omit key clauses 
when opening an existing indexed fie. However, VAX BASIC requires 
that you explicitly specify FOR INPUT, BASIC-PLUS-2 does not. 

The following OPEN statement clauses produce different results when used 

in VAX BASIC and BASIC-PLUS-2: 

• The ALLOW Clause 

VAX BASIC requires that you have write access to a file in order to 
specify ALLOW NONE in an OPEN statement; BASIC-PLUS-2 does not. 
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• The CLUSTERSIZE C1eus6 

The CLUSTERSIZE clause can be used with an OPEN statement on 
RSTS/E systems only. In VAX BASIC and BASIC-PLUS-2 on RSX 
systems, you can obtain functionality similar to the CLUSTERSIZE 
clause by using the EXTENDSIZE and WINDOWSIZE clauses. The 
EXTENDSIZE clause specifies the amount of space a file is extended 
after the existing space is full. The WINDOWSIZE clause specifies the 
number of block retrieval pointers that are kept in memory for the file. 

• The CONTIGUOUS Clause 

In VAX BASIC, using the CONTIGUOUS clause with an OPEN 
statement does not necessarily mean the file will occupy contiguous 
disk space. If there is not enough contiguous space available, RMS 
allocates the largest possible contiguous space and does not signal 
an error. In BASIC-PLUS-2, if there is not enough contiguous space 
available, RMS signals an error. 

• The MODE Clause 

The MODE clause cannot be used with an OPEN statement in VAX 
BASIC. In BASIC-PLUS-2 on RSX systems, the MODE clause is ignored 
except when used for device-specific I/O. Table A-2 lists transportable 
BASIC statements that correspond to RSTS/E disk MODE values. You 
can use these statements in VAX BASIC as well as in BASIC-PLUS-2 on 
RSX systems. 


Table A-2: RSTS/E Disk MODE Values and Corresponding BASIC Statements 


MODE 

Value 

Function 

Transportable Statement 

0% 

Normal read/write 

Use OPEN with ACCESS MODIFY and 
ALLOW MODIFY 

1 % 

Update file 

Use OPEN with ACCESS MODIFY 

2% 

Append to file 

Use OPEN with ACCESS APPEND 

5% 

Update die 

Use OPEN with ACCESS MODIFY and 
ALLOW MODIFY 

16% 

Create contiguous 

Use OPEN with CONTIGUOUS 

32% 

Create tentative die 

Use OPEN with TEMPORARY 


(continued on next page) 
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Table A-2 (Cont.): RSTS/E Disk MODE Values and Corresponding BASIC Statements 


MODE 

Value 

Function 

Transportable Statement 

64% 

Create contiguous file 

Use OPEN with CONTIGUOUS 


conditionally 


4096% 

Read only regardless 

Use GET or FIND with REGARDLESS 1 

8192% 

Read Only 

Use OPEN with ACCESS READ 


'The REGARDLESS clause is not available in BASIC-PLUS-2. 


• The RECORDSIZE Clause 

In all VAX BASIC files and BASIC-PLUS-2 RMS files, the RECORDSIZE 
clause specifies the RMS logical record size. In BASIC-PLUS-2 virtual 
files, the RECORDSIZE clause specifies the size of the I/O buffer for the 
channel. 


A.3.3 The PUT Statement 

In VAX BASIC, a PUT statement with a count of zero to a variable length 
file creates a record with a length of zero; in BASIC-PLUS-2, the size of 
the record created is the size specified in the RECORDSIZE clause or, if no 
RECORDSIZE clause is specified, the length of the longest map. 


A.4 Procedure Calling 

This section discusses some differences in procedure calling between 
VAX BASIC and BASIC-PLUS-2. 


A.4.1 The CALL Statement 

The following difference occur in the CALL statement when used in 
VAX BASIC and BASIC-PLUS-2: 

• In VAX BASIC, you can use the CALL statement to call a procedure that 
is written in any language which supports the VAX Procedure Calling 
Standard. In BASIC-PLUS-2, you can use the CALL statement to call 
only BASIC-PLUS-2 and MACRO subprograms. 
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• In VAX BASIC, individual array element parameters (except virtual 
array elements) are passed by reference and are modifiable. In 
BASIC-PLUS-2, individual array element parameters are passed by 
local copy and are not modifiable. 

• VAX BASIC does not allow passing of entire virtual arrays; 
BASIC-PLUS-2 allows passing of entire virtual arrays. 

• In VAX BASIC, you can pass up to 255 parameters in each subprogram. 
In BASIC-PLUS-2, you can pass up to 8 parameters in each subprogram. 


A.4.2 The CHAIN Statement 

In VAX BASIC and in BASIC-PLUS-2 on RSX systems, you cannot specify a 
line number in a CHAIN statement. In BASIC-PLUS-2 on RSTS/E systems, 
line numbers are allowed. 


A.4.3 SYS and FIP SYS Calls 


VAX BASIC supports a subset of RSTS/E SYS and FIP calls. These are 
summarized in Tables A-3 and A-4. 

Table A-3: VAX BASIC Subset of RSTS/E SYS Calls 


Function 

Code 

Function 

0 

Cancel CTRL/O effect on terminal 

2 

Enable echoing on terminal 

3 

Disable echoing on terminal 

5 

Exit with no prompt message 

6 

SYS call to the file processor 

7 

Get core common string 

8 

Put core common string 

9 

Exit and clear program 

11 

Cancel all type ahead 
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Table A-4: VAX BASIC Subset of RSTS/E FIP SYS Calls 


Function 

Code 

Function 

-23 

Terminate file name string scan 

-13 

Change priority/run burst/job size 

-10 

Begin file name string scan 

-7 

Enable CTRL/C trap 

9 

Return error messages 

10 

Assign user logical 

11 

Deallocate a device or deassign user logical 

12 

Deallocate all devices 

18 

Obsolete (use function code 22) 

22 

Message send/receive 


Note that the FIP call for sending or receiving messages (code 22) produces 
different results when used in VAX BASIC and BASIC-PLUS-2 on RSTS/E 
systems. In VAX BASIC, a receiver identification is removed from the 
receiver table when the image that declared it exits; in BASIC-PLUS-2 
on RSTS/E systems, a receiver identification stays in the receiver table 
until it is explicitly removed or the job terminates. This difference causes 
incompatible behavior with chained programs, because in VAX BASIC the 
receiver identification is valid only for the program that declares it; whereas 
in BASIC-PLUS-2 on RSTS/E systems, the chained programs fan share 
a receiver identification. DIGITAL recommends the use of mailboxes or 
DECnet task-to-task communication as a replacement for these FIP calls in 
VAX BASIC. 


A.5 Generated Errors 

In VAX BASIC and BASIC-PLUS-2, the same errors are handled differently 
or signal different error messages and numbers: 

• If you press CTRL/Z after responding to an INPUT statement, VAX 
BASIC makes the assignment and signals the error “End of file 
on device" (ERR=11) when the next INPUT statement executes; 
BASIC-PLUS-2 signals the same error, does not make the assignment, 
and terminates the current input line. 
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• When nonnumeric or floating-point data is input to an INPUT or READ 
statement expecting numeric or integer data, VAX BASIC signals the 
error “Data format error” (ERR=50); BASIC-PLUS-2 signals the error 
“Illegal number” (ERR=52). 

• When the integer index of a FOR loop exceeds the default integer size, 
VAX BASIC signals the error “Integer error or overflow” (ERR=51); 
BASIC-PLUS-2 signals the error “Integer overflow, FOR loop” (ERR=60). 

• When a program opens channel 0, VAX BASIC signals the error “Illegal 
I/O channel” (ERR=46); BASIC-PLUS-2 signals the error “I/O channel 
already open at line dine number>” (ERR=7). 

• If no error handler is active, the errors in Table A—5 are fatal errors in 
VAX BASIC, but warnings in BASIC-PLUS-2. 


Table A-5: Fatal Errors in VAX BASIC that are Warnings in BASIC-PLUS-2 


Error Number 

Message 


48 

Floating point error 

- 

51 

Integer error 


52 

Illegal number 


53 

Illegal argument in LOG 


54 

Imaginary square roots 


61 

Division by zero 



• When a user has WRITE access to a block in a virtual file and a second 
user attempts to access that block, VAX BASIC and BASIC-PLUS-2 on 
RSX signal the error “Record/bucket locked” (ERR=154); BASIC-PLUS-2 
on RSTS/E signals the error “Disk block is interlocked” (ERR=19). 


A.6 Miscellaneous Differences 

This section discusses some miscellaneous differences between VAX BASIC 
and BASIC-PLUS-2. 
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A.6.1 Data Types 

VAX BASIC supports DECIMAL, HFLOAT, GFLOAT and user-defined data f 
t^es, BASIC-PLUS-2 does not. In BASIC-PLUS-2, as an alternative to the 
DECIMAL data type, use the DOUBLE data type with the OPTION SCALE 
statement or the SCALE command to minimize floating-point inaccuracy. 


A.6.2 The DEF and DEF* Statements 


In VAX BASIC, you can specify a maximum of 255 parameters in a DEF 
statement and a maximum of 8 parameters in a DEF* statement; in 
BASIC-PLUS-2, you can specify a maximum of 8 parameters in both the 
DEF and DEF* statements. 


A.6.3 Default Integer Size 

If you do not specify a default integer size when invoking VAX BASIC, the 
default integer size is LONGWORD; in BASIC-PLUS-2, the default integer 
size is WORD. In VAX BASIC, use the OPTION SIZE=INTEGER WORD 
statement or the COMPILE/WORD command to make BASIC-PLUS-2 
programs transportable to VAX BASIC. 


A.6.4 Integer Overflow 



When performing integer arithmetic, VAX BASIC signals an error 
message if the size of the value returned exceeds the default integer 
size. BASIC-PLUS-2 does not signal an error message, truncates the result, 
and returns a signed integer quantity. 

To disable error checking for integer overflow in VAX BASIC, use the 
OPTION INACTIVE=INTEGER OVERFLOW statement or the DCL 
command BASIC/CHECK=NOOVERFLOW. 


A.6.5 Line Numbers and Labels 

In VAX BASIC, line numbers are optional. In BASIC-PLUS-2, you need at 
least one line number in each program. 

In a VAX BASIC program, labels, compiler directives, and comments can 
begin in column zero. In BASIC-PLUS-2, they canno t 
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A.6.6 The MAP and COMMON Statements 


The MAP and COMMON statements have different functionality when used 
in VAX BASIC and BASIC-PLUS-2. The differences are as follows: 

• In VAX BASIC, both COMMON areas and maps can have names 
containing a maximum of 31 characters and include underscore (_) 
characters. In BASIC-PLUS-2, COMMON areas and maps can have 
names containing a maximum of six characters; underscore characters 
are not allowed. 

• If two strings overlap in a map, VAX BASIC performs string assignments 
as if no overlap exists; BASIC-PLUS-2 performs string assignments one 
character at a time from left to right. (Note that RSET assignment is 
performed from right to left.) For example: 

10 MAP (FOO) A$ * 5 

MAP (FOO) FILLS - 2, B$ - 5 
A$ =■ 'ABODE' 

PRINT AS 
B$ - AS 
PRINT B$, AS 

When you run this program in VAX BASIC, the following output is 
displayed: 

ABODE 

ABODE ABABC 

When you run this program in BASIC-PLUS-2, the following output is 
displayed: 

ABODE 

ABABA ABABA 


A.6.7 The MAP DYNAMIC Statement 

The following differences occur in the MAP DYNAMIC statement when used 
in VAX BASIC and BASIC-PLUS-2: 

• If the MAP DYNAMIC statement is in an external subprogram or 
function, BASIC-PLUS-2 resets all pointers to the first byte each time 
the external module is called. VAX BASIC initializes the map area once 
when the external module is first called, and does not reset the variables 
pointers on subsequent calls. 
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• VAX BASIC allows you to specify a PSECT name or a static strin g 
variable in a MAP DYNAMIC statement; BASIC-PLUS-2 allows you to 
specify only a PSECT name. 


A.6.8 The PRINT Statement 

In VAX BASIC and RSX BASIC-PLUS-2, when you print to a 
terminal-format file and the line is to exceed 72 characters, you must 
either specify a record size, or a map, or use the VAX BASIC MARGIN 
function; this is not the case in BASIC-PLUS-2 on RSTS/E. 


A.6.9 The PRINT USING Statement 

In VAX BASIC, the PRINT USING string formatting characters (L,R,C, 
and E) can be either uppercase or lowercase. In BASIC-PLUS-2, string 
formatting characters must be uppercase; otherwise, they are treated as 
string literals. 


A.6.10 The REPLACE Command 

In VAX BASIC, the REPLACE command writes the source program to the 
device and directory you specify in the OLD command. In BASIC-PLUS-2, 
the REPLACE co mm a n d writes the source program to the current directory. 


A.6.11 The SPEC% and PEEK Functions 

• You can use the SPEC% and PEEK functions only on RSTS/E systems. 

These functions are not transportable. 


A.6.12 String Comparisons 

When making string comparisons in all relational operations, VAX BASIC 
pads the shorter string with a blank space (ASCII value 32). BASIC-PLUS-2 
pads the shorter string with a blank space only on equals (=) and not equals 
(o) relational operations. 
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A.6.13 Assigning Symbols 

In VAX BASIC, you use the logical name SYS$CURRENCY to change the 
currency symbol, SYS$RADIX_POINT to change the radix point symbol, and 
SYS$DIGIT_SEP to change the separator symbol. In BASIC-PLUS-2, you 
select the symbols for currency, radix point, and separator when installing 
the compiler. 


A.6.14 The TIME Function 

The numeric arguments to the TIME function have different results when 
used in VAX BASIC and BASIC-PLUS-2. These differences are summarized 
in Table A-6. 


Table A-6: VAX BASIC and BASIC-PLUS-2 TIME Function Differences 


TIME 

Argument 

Result 

o 1 

In both VAX BASIC and BASIC-PLUS-2, TIME returns the number 
of seconds that elapsed since midnight. 

1 

In VAX BASIC and BASIC-PLUS-2 on RSTS/E systems, TIME 
returns the current job’s CPU time in tenths of a second. 

2 

In VAX BASIC and BASIC-PLUS-2 on RSTS/E systems, TIME 
returns the current job’s connect time in minutes. 

3 

In VAX BASIC, TIME returns zero. In BASIC-PLUS-2 on RSTS/E 
systems, TIME returns kilo-core ticks. 

4 

In VAX BASIC, TIME returns zero. In BASIC-PLUS-2 on RSTS/E 
systems, TIME returns device time in minutes. 


1 Zero is the only valid argument for TIME in BASIC-PLUS-2 on RSX systems. 


A.6.15 The TIME$ Function 

In VAX BASIC, the value returned by the TIMES function is always 
displayed in AM/PM format. In BASIC-PLUS-2, the time can be expressed 
in either AM/PM format or 24-hour format, depending on the option you 
select when installing BASIC-PLUS-2. 
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